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ie ALL RIGHTS RESERVED. 
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i** 

FACILITY: FIIACP Structure Level 2 

i ABSTRACT: 


This routine ‘‘accesses’’ a directory and readies it for processing. 
i ENVIRONMENT : 


w 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-Jan-1977 22:53 
i MODIFIED BY: 
v03-015 CDS0009 Christian D. Saether 29-Aug-1984 
+e with potential multiple headers caused by 


| 
| 
v03-014 CDS0008 Christian D. Saether 31-July-1984 
Changes to accomodate block-cache based directory 
index caching. | 
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Ye 060 "Br 3een 1 8be 99:08:98 4 STEKSuMGMASTERSCI Tig. one 2DIRACC.B32:1°%" (15, 
v03-013 LMPO275 Mark Pilant, 12-Jul-1986 14:56 | 


Initialize the ati info in the ORB to be a null descriptor 
List rather than an empty queve. This avoids the overhead 


ae 
m _ 
ar 


. 1 ' 

; 2g 3 ii 

3; 6} 1! of lock ng and unlocking the ACL mutex, only to find out 
: £ § ! that the ACL was empty. 
> 64 4 43 v03-012 ¢7$0007 Christian D. Saether © 22-Apr-1984 | 
: 65 5 ; : Modify access arbitration. 
: §$ 1 i v03-011 ACGO0412 Andrew C. Goldstein, 22-Mar-1984 18:23 
; & 3 1! Implement agent access mode support; add access mode 

: 4 , : check protection call | 
ips. 71,13 v03-010 CDS0006 Christian D. Saether 29-Dec-1983 

; Ms : Use L_NORM Linkage and BIND_COMMON macro. | 
: 7% 7% 15 v03-009 cDs000S Christian D. Saether 3-0ct-1983 

; ? Bf? : } Save/restore CURR_LCKINDX instead of PRIM_ LEENA. 

; 6 0077 1 v03-008 cDS0004 Christian D. Saether 14-Sep-1983 

: % A : Modify interface to SERIAL. FILE. 

: 80 080 1 vO3-007 ACG0354 Andrew C. Goldstein, 13-Sep-1983 16:16 

: Be + : Add alternate access validation mask 

; § Hi 1 v03-006 CDS0003 Christian D. Saether 4-May-1983 

; | 84 0084 1! Add Siroctery. file processing synchronizetion” 

3; 85 Boee 1! using SERIAL_FILE. 

3 Hy] +s] 1! Move directory + check ong access arbitration 

; 8 ae : } checks to path that sets up DIR_F 

; 59 $089 1 v03-005 CDS0002 Christian D. Saether 99-Apr-1983 

; + oS : } Reflect changes to ACCESS_LOCK interface. 

; 4 g 1: v03-004 cDs0001 Christian D. Saether 20-Jan-1982 

: pt, 9 : Use ACCESS_LOCK routine for access arbitration. 

; 9S 0098 1: v03-003 ACG0308 Andrew C. Goldstein, 14-Jan-1983 15:07 

: 38 : Fix consistency problems with FCB Linkages 

; (98 38 1 i v03-002 LMP00S9 L. Mark Pilant 22-Dec-1982 8:22 

; 99 1/ Eliminate the cali to ACL "BUILBACL as the ace’ is now built by 

: +s 190 : } the FCB creation/entending routines. 

; 188 1 § 1: v03-001 LMP0036 L. Mark Pilant, 6-Aug-1982 10:30 

: 194 ; : Add support for ACL's. 
: 105 105 1 | v02-005 ACG0229 Andrew C. Goldstein, 23-Dec-1981 20:55 

: 109 : ' } Count directory LRU hits and misses 

.-4 108 1: V02-004 ACG33975 Andrew C. Goldstein, 13-Mar-1981 15:46 | 
; i 4 ' Fix losing directory FCB’s when LRU is disabled 
; 11 W161} V02-003 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 | 
: 6 1 ' fe Previous revision history moved to f11B.REV | 
5 114 14°17 
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- - - Page 4 
=$ep-1984 00:19: VAX-11 Bliss-32 V4.0-742 
Poe 560 : =3e7 1382 9338338 DISKSVMSMASTER:CF11X.SRCIDIRACC.B32;1 (2) 
; 1 1 ’ GLOBAL ROUTINE DIR_ACCESS (FIB, WRITE) : L_NORM NOVALUE = 
2 ere 
; i 4 1113 1 FUNCTIONAL DESCRIPTION: 
: é HF This routine “‘accesses’' a directory and readies it for processing. 
EQUENCE: 
: 155 Mie 1 | HAND RLACCESS (ARG1, ARG2) 
; 1 119 7} 
; T PARAMETERS: 
13 115) 1 1 NUT Eaet address of FIe 
: 138 W1¢2 1! Ge: 0 if read only 
‘9 1198 | | if read/write 
4 i 
: 1 ; 1 ¢ i i IMPLICIT INPUTS: 
; 1 1 6 ; NONE 
: 1 9 1128 1 | OUTPUT PARAMETERS: 
; 140 1 ; NONE 
: 14 ! . 
: 128 1 i cae Ay 1g - Pore of FCB for directory 
+ 144 1 1: 
: 1134 1. ! ROUTINE VALUE: 
; 146 1 5 ; NONE 
: ; 
: i FFECTS: 
; 163 i 5 nts “tb ste gt tpn altered 
o i . 
; 13) 1120 i i Had a file header may be read 
: 1141 1! 
: 188 1148 1 ie 
: 154 1143 1 
: 155 1144 2 BEGIN 
1 HE Sa 
: 188 1147 | FIB : REF BBLOCK; ! FIB argument 
; 159 
: 164 1180 —_ CURR_LKMODE, ' current access lock mode 
188 1183 +) OS lapel ' protection check status value 
18 1183 Pep : REF BBLOCK, | PCB address saress 
> 165 1154 HEADER : REF BBLOCK: | directory heade 
; ig 1132 BIND_COMMON; 
: 4 
: 1 caren, Ov : ' access arbitration 
| ee ere eg er 
; 153 118) CONV_ACCLOCK L-NORM, | convert access lock 
YR URN RR ee 5 Se St ase sarpevre iam 
ees: He REBLD PRIM FCB : L7NORM NOVALUE, | refresh fcb from header 
: 17 11868 SERIAC_FILE L-NORM, { interlock directory processing. 
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Su 1 TSH VOLUME L_NORM, ! switch to correct volume 
SEARCH FC L_NORM, ' search FCB List 
READ_HEADER L=NORM, ' read file header 

CHECR_PROTECT L-NORM; ! check file protection 


—~— IO 
—-OO@ 


Switch context to the volume of the specified RVN. 


SWITCH VOLUME (.FIBCFIBSW_DID_RVNJ); 
} First find the FCB of the directory, if any exists. 


IF (FCB = .DIR_FCB) EQL 0 
THEN 
BEGIN 
LOCAL 
FCBVALID : INITIAL (0); 


Synchronize further file processing on this directory. 


DIR_LCKINDX = SERIAL_FILE (FIB CFIBS$W_DIDJ); 
FCB = SEARCH_FCB (FIBCFIBS$W_DIDI); 
IF .FCB NEQ 0 
THEN 
FCBVALID = MAKE_DIRINDX (.FCB); 
IF NOT .FCBVALID 
THEN 
BEGIN 
: This flag tells READ_HEADER to not update the FILE_HEADER cell. 


POIPIPIPOPININORY <0 tt ot a at at 


SRIERFANLSSELESRAVLSSSLSEARLAVLSISV 
BIS OB NONE WI OOO NOMEN HOO OU EOI 


STSFLGS CSTS_LEAVE_FILEHDR] = 1; 

HEADER = READ_HEADER (FIB CFIBSW_DIDJ, .FCB); 
IF .FCB EQL 0 | 
THEN 


| 
| 
SAV_LCKINDX = .CURR_LCKINDX; 
| 
| 
| 


DEI III at st st st tt kk hh kh kh hh hh oh tt 


BEGIN 
FCB = CREATE_FCB (.HEADER); 
alate (.FCB); 


LSE 
REBLD_PRIM_FCB (.FCB, .HEADER); 


IF HEADER CEH2SW.EX_FIDNUM] NEG 0 
OR .HEADER CFA2$SB_EX_FIONMX) NEQ 0 


HEN 
BUILD_EXT_FCBS (.HEADER, .FCB); 
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if-bep-1964 90:19:92 vAKe]1 BLse=82 v4. 0-74 


3 1223 4 

: 5 1 : 4 ! Check the file attributes to make sure that 

; : é 2 this is a real directory file. 

: 8 1 .2 

; 1 4 IF NOT .HEADERCFH2$V_DIRECTORY) 

; 240 1 8 4 OR NOT .HEADER Hit ONT 16) 

: 261 1230 4 OR -BBLOCK HEADER rR W_RECATTR], FATSB_RTYPE] NEQ FATS$C_VARIABLE 
; 4g 1231 4 OR HEADER 4 swe RECA TR], FATSB-RATTRIB) NEQ FATSM_NOSPAN 
; 43 i 5 4 THEN ERR erKiT ($S$_BADIRECTORY) 

i 945 134 FCB CFCBSW_DIRSEQ) = .FCB CFcesw_piRsea) +1; 

; ¢f 6 END; 

i 49 : CURR_LCKINDX = .SAV_LCKINDX; 

3 31 49 IF .FCB CFCBSW_FID_SEQ] NEQ .FIB CFIB$W_DID_SEQ) 

; 38 124g ERR_EXIT (SS$_FILESEQCHK); 

3 25 44 DIR_FCB = .FCB; ! store global FCB address 
: 2$ 1246 ' Check etrectery file protection. For alternate access validation, 

; 3 ; rt } delete access implies write to the directory. 

: 260 1249 3 

: 261 1250 STATUS = CHECK_PROTECT (.WRITE, .HEADER, .FCB, 0 

; 362 1251 4 (IF .BBLOCK CFIBCFIBSL_ALT_ACCESS], ARMSV_DELETE) 
: 36 1 38 THEN ARMSM_WRITE ELSE 0), 

3 re} : 37 -FIBCFIBSV_ALT_REQ)); 

: 266 1255 IF .STATUS EQL SS$_NOTALLPRIV 

3 67 36 THEN FIBCFIBSV_ALT-GRANTED) = 0; 

; 69 1258 ' Arbitrate the access interlocks. 

im oe 

3 z 61 CURR_LKMODE = .FCR CFCBSB_ACCLKMODE); 

: 276 1583 IF NOT ARBITRATE_ACCESS (IF .WRITE THEN FIBSM_WRITE ELSE 0, .FCB) 
: 3 64 THEN ERR_EXIT (SS$_ACCONFLICT); 

: 277 1266 CONV_ACCLOCK (.CURR_LKMODE, .FCB); 

; 78 126 

3 ie 4 ' oe END; 

: 81 1 RETURN 1; 

; 28 1272 1 END; ! end of routine DIR_ACCESS 
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; Routine Size: 284 bytes, Routine Base: $CODE$ + 0000 


1273 1 
ar 1 END 
75 0 ELUDOM 


PSECT SUMMARY | 
Bytes Attributes 
284 NOVEC,NOWRT, RD, EXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


] 
04 ag RET : | : 
42 a3 Bs A gs: INCW  66(FCB) i 1234 : 
146 AA 54 D AA 9$: MOVL § SAV_LCKINDX, 20(BASE) + 1238. : 
30 4 AC D0 oe OVL FIB> RO t 1240 ; 
oc A 6 AS Bl 63 crey 3 (FCB), 12(R0) : ; 
0888 BF Bf 89 CHAU A $32 $1242 : 
00D0 53 9 BE 10S: MOVL FCB, 208(BASE) : 124 ; 
0 06 AC D ¢ MOVL IB. RO : 1253 F 
7E 38 =A 01 EF 000C EXTZ2vV #0, #1, 56(RO) -(SP) : 3 
04 3c A E1 OCD BBC #3, 60(RO), 118 + 1251 ; 
DD 0000 PUSHL # : ; 
11 9004 BRB 12$ : : 
E D4 D6 11$:  CLRL <=(SP) : ; 
7E D4 900 12$: CLRL <=(SP) + 1250 ; 
OC BB QOODA PUSHR #*M<R2,R3> : : 
08 AC DD 000DC PUSHL WRITE : ; 
00006 CF 06 FB OOODF CALLS #6, CHECK_PROTECT : ; 
00000681 8F D1 OO0E4 CMPL STATUS, #1665 + 1255 ; 
08 13 00EB BNEG 13$ : ; 
50 06 A OOED MOVL 1B, RO + 1256 ; 
38 =A 02 8A 000F1 BICB2 #2, 56(RO) ; ; 
32 08 AS 9A O00FS 13$:  MOVZBL 11(FCB), CURR_LKMODE + 1261 ; 
0 08 ac 5 00F9 BLBC WRITE, 14$ > 1263 ; 
50 0100 8F 3C O00FD MOVZWL 6, RO ; ; 
17 00102 BRB 15$ : ; 
D4 9194 148: CLRL R ; ; 
51 5 b0 0106 15$: MOVL FCB, RI : : 
00006 30 00109 BSBW  § ARBITRATE_ACCESS : F 
05 50 £8 9019¢ BLBS RO, 16$ ; ; 
0800 8F BF 0010F CHMU =: #2048 + 1264 F 
04 00113 RET : ; 
o¢ BB 00114 16$:  PUSHR #*M<R2,R3> + 1266 ; 
00006 CF 2 FB 00116 CALLS #2, CONV_ACCLOCK F ; 
04 00118 RET : 1272 ; 
} Py 
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Library Statistics 


; cosscsse Syabols ococeece Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;# 18619 42 0 1000 00:01.8 

i COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DIRACC/OBJ=OBJ$:DIRACC MSRC$:DIRACC/UPDATE=(ENH$:DIRACC) 


; Size: 284 ote + 0 data bytes 


; Cae A Mae 47 
3 Used: 242 pages 


ines cpu i Min S86" 
; $ 
; Conptlottan, Complete 


ns 


ee CC LD 
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